home *** CD-ROM | disk | FTP | other *** search
/ 1,000+ Great Games / 1_1000 Games.iso / CASINO / AMIDA10E.ZIP / AMISRC.ZIP / GLOBAL.BAS < prev    next >
Encoding:
BASIC Source File  |  1993-06-03  |  598 b   |  26 lines
  1. Global Const MaxLots = 20
  2. Global Const TopMost = 1300
  3. Global Const Leftmost = 500
  4. Global Const BottomMost = 4300
  5. Global Const Rightmost = 7900
  6. Global Const MaxBars = 40
  7. Global Const FREE = 0
  8. Global Const SELECTED = 1
  9. Global Const BLANK = 2
  10. Global Const PRIZE = 3
  11. Global Const BEINGSELECTED = 4
  12. Global Const UNKNOWN = 0
  13. Global Const VIEWED = 1
  14.  
  15. Global NumLots As Integer
  16. Global NumPrizes As Integer
  17. Global IsUnwillingPrize As Integer
  18. Global DoNew As Integer
  19. Global AppName$
  20.  
  21. Sub TextAllSelect (cntl As Control)
  22.   cntl.SelStart = 0
  23.   cntl.SelLength = Len(cntl.Text)
  24. End Sub
  25.  
  26.